home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 441 / aessrc12 / aesgraf3.s < prev    next >
Text File  |  1990-11-23  |  1KB  |  37 lines

  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.           .include  "aesfast.sh"
  9.           
  10. ;*************************************************************************
  11. ;*
  12. ;* Graphics Library routines 3 of 5.
  13. ;*
  14. ;*************************************************************************
  15.  
  16. ;-------------------------------------------------------------------------
  17. ; graf_movebox  (book lists this as 'movebox', Alcyon bindings have 'mbox').
  18. ; graf_growbox
  19. ; graf_shrinkbox
  20. ;-------------------------------------------------------------------------
  21.  
  22. _graf_mbox::
  23.           AControl  72,6,1,0
  24.           bra.s     graf_gbox
  25. _graf_growbox::
  26.           AControl  73,8,1,0
  27.           bra.s     graf_gbox
  28. _graf_shrinkbox::
  29.           AControl  74,8,1,0
  30. graf_gbox:
  31.           .cargs    #4,.intin
  32.           lea       .intin(sp),a1
  33.           ACall     RET2USER
  34.  
  35. ;         end of code
  36.  
  37.